home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / samples / triple.tex < prev    next >
Encoding:
Text File  |  1989-11-22  |  1.2 KB  |  28 lines
  1.    % ********************************************************
  2.    %  This is the triple column format.                     *
  3.    %  Tomas Rokicki, 29 September 1984                      *
  4.    % ******************************************************** 
  5.  
  6. \special{landscape}
  7. \newdimen\fullhsize\newdimen\play\newdimen\hmargins\newdimen\vmargins
  8. \def\newmargins#1#2{\hmargins=#1\vmargins=#2
  9.    \play=11truein\advance\play by-2\hmargins\global\fullhsize=\play
  10.    \advance\play by-4\hmargins\divide\play by3\global\hsize=\play
  11.    \play=8truein\advance\play by-2\vmargins\global\vsize=\play
  12.    \play=-1truein\advance\play by\hmargins\global\hoffset=\play
  13.    \play=-1truein\advance\play by\vmargins\global\voffset=\play}
  14. \newmargins{.25truein}{.25truein}
  15. \def\fullline{\hbox to\fullhsize}
  16. \let\lmr=L \newbox\leftcolumn\newbox\middlecolumn
  17. \output={\if L\lmr
  18.    \global\setbox\leftcolumn=\columnbox\global\let\lmr=M
  19.    \else\if M\lmr
  20.    \global\setbox\middlecolumn=\columnbox\global\let\lmr=R
  21.    \else\tripleformat\global\let\lmr=L\fi\fi
  22.    \ifnum\outputpenalty>-20000 \else\dosupereject\fi}
  23. \def\tripleformat{\shipout\vbox{\makeheadline
  24.    \fullline{\box\leftcolumn\hfil\box\middlecolumn\hfil\columnbox}}
  25.    \advancepageno}
  26. \def\columnbox{\leftline{\pagebody}}
  27. \tolerance=1600
  28.